home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
prog
/
lb09c.zip
/
ASCII.BAS
next >
Wrap
BASIC Source File
|
1992-03-02
|
332b
|
16 lines
' This program ask for a string and then
' displays a list of ASCII codes for each
' character in the entered string
input "Please enter a string >"; entry$
for index = 1 to len(entry$)
result$ = result$ + str$(asc(mid$(entry$,index,1))) + chr$(13)
next index
print result$